home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / util1 / ed6patch.zip / ED6PATCH.BAS next >
BASIC Source File  |  1993-04-01  |  744b  |  22 lines

  1. CLS
  2. PRINT "You should have saved QBASIC.EXE, possibly as QBASIC.SAV."
  3. PRINT "If you have, press Y and enter to continue, any other key to abort."
  4. INPUT "Do you wish to continue"; a$
  5.    IF a$ = "Y" OR a$ = "y" THEN
  6. OPEN "qbasic.exe" FOR RANDOM AS #1 LEN = 16
  7. FIELD #1, 5 AS first$, 11 AS last$
  8. GET #1, 11720
  9.    name$ = first$
  10.    IF name$ <> "*.TXT" THEN 20
  11.    name$ = "*.*" + CHR$(0) + CHR$(0)
  12. LSET first$ = name$
  13. PUT #1, 11720
  14. CLS : PRINT "The patch was successful, QBASIC.EXE was changed.": END
  15. 20 CLS : PRINT "QBASIC.EXE did not contain the expected *. TXT in the right place."
  16. PRINT "QBASIC.EXE must be from DOS 6.0 and should be 194,309 bytes long."
  17. PRINT "The effort was aborted, no change was made."
  18. ELSE
  19. END IF
  20. END
  21.  
  22.